home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / piblist.arc / ISSUEPRO.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1985-03-28  |  2.5 KB  |  57 lines
  1. (*---------------------------------------------------------------------------*)
  2. (*              Issue_Prompt -- Issue prompt for PibList command entry       *)
  3. (*---------------------------------------------------------------------------*)
  4.  
  5. PROCEDURE Issue_Prompt;
  6.  
  7. (*---------------------------------------------------------------------------*)
  8. (*                                                                           *)
  9. (*     Routine:  Issue_Prompt                                                *)
  10. (*                                                                           *)
  11. (*     Purpose:  Issue prompt for PibList command entry                      *)
  12. (*                                                                           *)
  13. (*     Calling Sequence:                                                     *)
  14. (*                                                                           *)
  15. (*        Issue_Prompt;                                                      *)
  16. (*                                                                           *)
  17. (*     Calls:                                                                *)
  18. (*                                                                           *)
  19. (*        GoToXY                                                             *)
  20. (*        Window                                                             *)
  21. (*        ClrEol                                                             *)
  22. (*        TextBackground                                                     *)
  23. (*        TextColor                                                          *)
  24. (*                                                                           *)
  25. (*     Called By:   Display_Screen                                           *)
  26. (*                                                                           *)
  27. (*---------------------------------------------------------------------------*)
  28.  
  29. VAR
  30.    fc: INTEGER;
  31.  
  32. BEGIN  (* Issue_Prompt *)
  33.  
  34.    Window( 1 , 1 , 80 , 25 );
  35.    GoToXY( 1 , 25 );
  36.    ClrEol;
  37.  
  38.    TextBackground( White );
  39.    TextColor( Status_Line_Color );
  40.  
  41.    IF lpt AND (first_col = 2) THEN
  42.       fc := 1
  43.    ELSE
  44.       fc := first_col;
  45.  
  46.    WRITE('[P', bot^.pnum:1:0,
  47.          ' S', (INT((bot^.lnum-1) / Height) + 1):1:0,
  48.          ' L', bot^.lnum:1:0,
  49.          ' C', fc:1,
  50.          ' W', width:1, ']',
  51.          ' (Enter ? for help) ? ');
  52.  
  53.    TextBackground( BackGround_Color );
  54.    TextColor( Spec_Chars_Color );
  55.  
  56. END   (* Issue_Prompt *);
  57.